Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/23pick/23pickup.frm

Visual Basic Form | 1995-12-05 | 16.0 KB | 603 lines

VERSION 2.00
Begin Form Pickup
   BackColor       =   &H00FFFFFF&
   Caption         =   "23 Pickup"
   ClientHeight    =   2310
   ClientLeft      =   1170
   ClientTop       =   1905
   ClientWidth     =   7755
   Height          =   3000
   Icon            =   23PICKUP.FRX:0000
   Left            =   1110
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2310
   ScaleWidth      =   7755
   Top             =   1275
   Width           =   7875
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   1680
   End
   Begin CommandButton Command1
      Caption         =   "-&3"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   3
      Left            =   5880
      TabIndex        =   7
      Top             =   1560
      Width           =   975
   End
   Begin CommandButton Command1
      Caption         =   "-&2"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   2
      Left            =   5880
      TabIndex        =   6
      Top             =   840
      Width           =   975
   End
   Begin CommandButton Command1
      Caption         =   "-&1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   1
      Left            =   5880
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin Label Label5
      BackColor       =   &H00FFFFFF&
      Caption         =   "stick(s)"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   2160
      TabIndex        =   5
      Top             =   1560
      Width           =   1095
   End
   Begin Label Label4
      BackColor       =   &H00FFFFFF&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   1680
      TabIndex        =   4
      Top             =   1560
      Width           =   375
   End
   Begin Label Label3
      BackColor       =   &H00FFFFFF&
      Caption         =   "I take"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   720
      TabIndex        =   3
      Top             =   1560
      Width           =   975
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Left"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   48
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   2040
      TabIndex        =   2
      Top             =   120
      Width           =   2295
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   48
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   360
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin Menu file
      Caption         =   "&Game"
      Begin Menu new
         Caption         =   "&New"
         Shortcut        =   {F2}
      End
      Begin Menu ex
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
      Begin Menu thing
         Caption         =   "-"
      End
      Begin Menu abt
         Caption         =   "&About 23 Pickup..."
      End
   End
   Begin Menu options
      Caption         =   "&Options"
      Begin Menu level
         Caption         =   "&Level of Difficulty"
         Begin Menu easy
            Caption         =   "&Easy"
         End
         Begin Menu medium
            Caption         =   "&Medium"
            Checked         =   -1  'True
         End
         Begin Menu hard
            Caption         =   "&Hard"
         End
      End
      Begin Menu startplay
         Caption         =   "&Starting Player"
         Begin Menu youstart
            Caption         =   "&You Start"
            Checked         =   -1  'True
         End
         Begin Menu compstart
            Caption         =   "&Computer Starts"
         End
      End
      Begin Menu back
         Caption         =   "&Background Color"
         Begin Menu green
            Caption         =   "&Green"
         End
         Begin Menu blue
            Caption         =   "&Blue"
         End
         Begin Menu purple
            Caption         =   "&Purple"
         End
         Begin Menu red
            Caption         =   "&Red"
         End
         Begin Menu yellow
            Caption         =   "&Yellow"
         End
         Begin Menu bluegray
            Caption         =   "B&lue-Gray"
         End
         Begin Menu gray
            Caption         =   "Gr&ay"
         End
         Begin Menu white
            Caption         =   "&White"
            Checked         =   -1  'True
         End
      End
   End
   Begin Menu help
      Caption         =   "&Help"
   End
Sub abt_Click ()
Load about
about.Show
End Sub
Sub blue_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = -1
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
h = &HFFFF00
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub bluegray_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = -1
gray.checked = 0
h = &H808000
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub Command1_Click (Index As Integer)
label4.caption = ""
x = Val(label1.caption)
If x < Index Then Beep: Exit Sub
label1.caption = Str$(x - Index): x = Val(label1.caption)
If Val(label1.caption) = 0 Then
    MsgBox "You lost.", 16, "Sorry, Dude": Exit Sub
End If
timer1.enabled = -1
End Sub
Sub Command2_Click ()
x = Val(label1.caption)
If x < 2 Then Beep: Exit Sub
label1.caption = Str$(x - 2): x = Val(label1.caption)
If Val(label1.caption) = 1 Then
    label4.caption = Str$(1)
    label1.caption = Str$(0)
    MsgBox "You Won!", 48, "Congratulations"
ElseIf Val(label1.caption) = 0 Then
    MsgBox "You lost.", 16, "Sorry, Dude"
End If
If i = 3 Then
    For e = 1 To 21 Step 4
        If x - e > 0 And x - e < 4 Then
            label4.caption = Str$(x - e)
            label1.caption = Str$(e): x = Val(label1.caption)
        ElseIf x - e = 0 And x <> 1 Then
            y = Int(3 * Rnd + 1)
            label4.caption = Str$(y)
            label1.caption = Str$(x - y): x = Val(label1.caption)
        End If
    Next e
If (Val(label1.caption) > 8 And i < 3) Or (Val(label1.caption) = 5 And i < 3) Or (i = 1 And Val(label1.caption) > 5) Then
    If i < 3 Then
    y = Int(3 * Rnd + 1)
    label4.caption = Str$(y)
    x = Val(label1.caption)
    label1.caption = Str$(x - y)
    End If
ElseIf Val(label1.caption) < 9 And Val(label1.caption) > 5 And i > 1 Then
    For d = 6 To 8
        If d = Val(label1.caption) Then
            y = d - 5
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next d
ElseIf Val(label1.caption) < 5 And Val(label1.caption) > 1 Then
    For a = 2 To 4
        If a = Val(label1.caption) Then
            y = a - 1
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next a
End If
End If
End Sub
Sub Command3_Click ()
x = Val(label1.caption)
If x < 3 Then Beep: Exit Sub
label1.caption = Str$(x - 3): x = Val(label1.caption)
If Val(label1.caption) = 1 Then
    label4.caption = Str$(1)
    label1.caption = Str$(0)
    MsgBox "You Won!", 48, "Congratulations"
ElseIf Val(label1.caption) = 0 Then
    MsgBox "You lost.", 16, "Sorry, Dude"
End If
If i = 3 Then
    For e = 1 To 21 Step 4
        If x - e > 0 And x - e < 4 Then
            label4.caption = Str$(x - e)
            label1.caption = Str$(e): x = Val(label1.caption)
        ElseIf x - e = 0 And x <> 1 Then
            y = Int(3 * Rnd + 1)
            label4.caption = Str$(y)
            label1.caption = Str$(x - y): x = Val(label1.caption)
        End If
    Next e
If (Val(label1.caption) > 8 And i < 3) Or (Val(label1.caption) = 5 And i < 3) Or (i = 1 And Val(label1.caption) > 5) Then
    If i < 3 Then
    y = Int(3 * Rnd + 1)
    label4.caption = Str$(y)
    x = Val(label1.caption)
    label1.caption = Str$(x - y)
    End If
ElseIf Val(label1.caption) < 9 And Val(label1.caption) > 5 And i > 1 Then
    For d = 6 To 8
        If d = Val(label1.caption) Then
            y = d - 5
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next d
ElseIf Val(label1.caption) < 5 And Val(label1.caption) > 1 Then
    For a = 2 To 4
        If a = Val(label1.caption) Then
            y = a - 1
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next a
End If
End If
End Sub
Sub compstart_Click ()
c = 1
youstart.checked = 0
compstart.checked = -1
If i = 3 Then
    label4.caption = Str$(2)
    label1.caption = Str$(21)
    r = Int(3 * Rnd + 1)
    label4.caption = Str$(r)
    label1.caption = Str$(23 - r)
End If
End Sub
Sub easy_Click ()
i = 1
easy.checked = -1
medium.checked = 0
hard.checked = 0
If c = 1 Then
    r = Int(3 * Rnd + 1)
    label4.caption = Str$(r)
    label1.caption = Str$(23 - r)
    label1.caption = Str$(23)
    label4.caption = ""
End If
End Sub
Sub ex_Click ()
Unload pickup
End Sub
Sub Form_Click ()
If about.visible = -1 Then
    Beep
    about.Show
End If
End Sub
Sub Form_Load ()
i = 2
Randomize
label1.caption = Str$(23)
End Sub
Sub gray_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = -1
h = &HC0C0C0
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub green_Click ()
green.checked = -1
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
h = &HFF00&
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub hard_Click ()
i = 3
easy.checked = 0
medium.checked = 0
hard.checked = -1
If c = 1 Then
    label4.caption = Str$(2)
    label1.caption = Str$(21)
    label1.caption = Str$(23)
    label4.caption = ""
End If
End Sub
Sub help_Click ()
MsgBox "For help on 23 Pickup, please open the file 23PICKUP.TXT using Windows Notepad.", 64, "23 Pickup"
End Sub
Sub medium_Click ()
i = 2
easy.checked = 0
medium.checked = -1
hard.checked = 0
If c = 1 Then
    r = Int(3 * Rnd + 1)
    label4.caption = Str$(r)
    label1.caption = Str$(23 - r)
    label1.caption = Str$(23)
    label4.caption = ""
End If
End Sub
Sub new_Click ()
If c = 1 Then
    If i = 3 Then
        label4.caption = Str$(2)
        label1.caption = Str$(21)
    Else
        r = Int(3 * Rnd + 1)
        label4.caption = Str$(r)
        label1.caption = Str$(23 - r)
    End If
    label1.caption = Str$(23)
    label4.caption = ""
End If
End Sub
Sub purple_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = -1
bluegray.checked = 0
gray.checked = 0
h = &HFF00FF
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub red_Click ()
green.checked = 0
white.checked = 0
red.checked = -1
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
h = &HFF&
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub Timer1_Timer ()
If Val(label1.caption) = 1 Then
    label4.caption = Str$(1)
    label1.caption = Str$(0)
    MsgBox "You Won!", 48, "Congratulations": Exit Sub
End If
If i = 3 Then
    For e = 1 To 21 Step 4
        If x - e > 0 And x - e < 4 Then
            label4.caption = Str$(x - e)
            label1.caption = Str$(e): x = Val(label1.caption)
        ElseIf x - e = 0 And x <> 1 Then
            y = Int(3 * Rnd + 1)
            label4.caption = Str$(y)
            label1.caption = Str$(x - y): x = Val(label1.caption)
        End If
    Next e
If (Val(label1.caption) > 8 And i < 3) Or (Val(label1.caption) = 5 And i < 3) Or (i = 1 And Val(label1.caption) > 5) Then
    If i < 3 Then
    y = Int(3 * Rnd + 1)
    label4.caption = Str$(y)
    x = Val(label1.caption)
    label1.caption = Str$(x - y)
    End If
ElseIf Val(label1.caption) < 9 And Val(label1.caption) > 5 And i > 1 Then
    For d = 6 To 8
        If d = Val(label1.caption) Then
            y = d - 5
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next d
ElseIf Val(label1.caption) < 5 And Val(label1.caption) > 1 Then
    For a = 2 To 4
        If a = Val(label1.caption) Then
            y = a - 1
            label4.caption = Str$(y)
            x = Val(label1.caption)
            label1.caption = Str$(x - y)
        End If
    Next a
End If
End If
timer1.enabled = 0
End Sub
Sub white_Click ()
green.checked = 0
white.checked = -1
red.checked = 0
yellow.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
h = &HFFFFFF
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub yellow_Click ()
green.checked = 0
white.checked = 0
red.checked = 0
yellow.checked = -1
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
h = &HFFFF&
pickup.backColor = h
label1.backColor = h
label2.backColor = h
label3.backColor = h
label4.backColor = h
label5.backColor = h
End Sub
Sub youstart_Click ()
c = 0
youstart.checked = -1
compstart.checked = 0
label1.caption = Str$(23)
label4.caption = ""
End Sub